DBHvsStemBiomass Function

public function DBHvsStemBiomass(ws, n, as, ns) result(dbh)

relationship between DBH (Diameter at Brest Height) and stem biomass.

Reference:

Peter Sands, Adaptation of 3-PG to novel species : guidelines for data collection and parameter assignment, Technical Report 141, EQ. 8 http://3pg.sites.olt.ubc.ca/files/2014/04/3-PG-guidelines.TR141.pdf

Arguments

Type IntentOptional Attributes Name
real(kind=float), intent(in) :: ws

stem biomass (t)
real(kind=float), intent(in) :: n

number of trees
real(kind=float), intent(in) :: as

scaling coefficient
real(kind=float), intent(in) :: ns

scaling exponent

Return Value real(kind=float)

diameter at brest height (cm)


Source Code

FUNCTION  DBHvsStemBiomass &
!
(ws, n, as, ns) &
!
RESULT (dbh)


IMPLICIT NONE

! Arguments with intent(in):
REAL (KIND = float), INTENT(IN) :: ws !!stem biomass (t)
REAL (KIND = float), INTENT(IN) :: n !!number of trees
REAL (KIND = float), INTENT(IN) :: as !!scaling coefficient
REAL (KIND = float), INTENT(IN) :: ns !!scaling exponent

!local declarations:
REAL (KIND = float) :: dbh !!diameter at brest height (cm)

!------------end of declaration------------------------------------------------ 

dbh = ( ws / (n * as) ) ** (1. / ns)

RETURN
END FUNCTION DBHvsStemBiomass